home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1997 / HAM Radio 1997.iso / java / codes.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-04-08  |  2.8 KB  |  126 lines
  1. unit Codes;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, Buttons, ExtCtrls,PRINTERS;
  8.  
  9. type
  10.   TForm7 = class(TForm)
  11.     Image1: TImage;
  12.     LIST: TListBox;     
  13.     Label1: TLabel;
  14.     Memo1: TMemo;
  15.     BitBtn1: TBitBtn;
  16.     BitBtn2: TBitBtn;
  17.     BitBtn3: TBitBtn;
  18.     Memo2: TMemo;
  19.     Timer1: TTimer;
  20.     procedure BitBtn3Click(Sender: TObject);
  21.     procedure BitBtn2Click(Sender: TObject);
  22.     procedure BitBtn1Click(Sender: TObject);
  23.     procedure LISTClick(Sender: TObject);
  24.     procedure FormShow(Sender: TObject);
  25.     procedure Timer1Timer(Sender: TObject);
  26.     procedure BitBtn1MouseMove(Sender: TObject; Shift: TShiftState; X,
  27.       Y: Integer);
  28.     procedure BitBtn2MouseMove(Sender: TObject; Shift: TShiftState; X,
  29.       Y: Integer);
  30.     procedure BitBtn3MouseMove(Sender: TObject; Shift: TShiftState; X,
  31.       Y: Integer);
  32.   private
  33.     { Private declarations }
  34.   public
  35.     { Public declarations }
  36.   end;
  37.  
  38. var
  39.   Form7: TForm7;
  40.   go:Boolean;
  41.  
  42. implementation
  43.  
  44. {$R *.DFM}
  45.  
  46. procedure TForm7.BitBtn3Click(Sender: TObject);
  47. begin
  48. MESSAGEDLG('NOTEPAD WILL DISAPPEAR AFTER YOU CLICK ON OUTSIDE OF IT . YOU CAN BRING IT UP AGAIN BY USE ALT+TAB KEYS !',
  49.  mtInformation,[mbOk], 0);
  50. WINEXEC('NOTEPAD',sw_SHOWNORMAL);
  51. end;
  52.  
  53. procedure TForm7.BitBtn2Click(Sender: TObject);
  54. VAR
  55. MYFILE:TEXTFILE;
  56. LI:INTEGER;
  57. begin
  58.   AssignPrn(MyFile);
  59.   Rewrite(MyFile);
  60.   Writeln(MyFile, ' ');
  61.   Writeln(MyFile, ' ');
  62.   Writeln(MyFile, ' ');
  63.   Writeln(MyFile, '   '+LABEL1.CAPTION);
  64.   Writeln(MyFile, ' ');
  65.   FOR LI:=0 TO MEMO2.LINES.COUNT-1 DO
  66.   Writeln(MyFile, '    '+MEMO2.LINES[LI]);
  67.   System.CloseFile(MyFile);
  68. end;
  69.  
  70. procedure TForm7.BitBtn1Click(Sender: TObject);
  71. begin
  72. CLOSE;
  73. end;
  74.  
  75. procedure TForm7.LISTClick(Sender: TObject);
  76. VAR I,P:INTEGER;
  77. begin
  78. FOR I:=0 TO LIST.ITEMS.COUNT-1 DO
  79. IF LIST.SELECTED[I] THEN P:=I;
  80. MEMO1.CLEAR;
  81. memo1.visible:=false;
  82. go:=false;
  83. memo1.top:=-445;
  84. MEMO1.LINES.LOADFROMFILE('\TEXT\SC'+INTTOSTR(P+1)+'.TXT');
  85. memo2.lines.LOADFROMFILE('\TEXT\SC'+INTTOSTR(P+1)+'.TXT');
  86. go:=true;
  87. end;
  88.  
  89. procedure TForm7.FormShow(Sender: TObject);
  90. begin
  91. IMAGE1.PICTURE.LOADFROMFILE('\code.BMP');
  92. end;
  93.  
  94. procedure TForm7.Timer1Timer(Sender: TObject);
  95. var i:integer;
  96. begin
  97. if go then
  98. begin
  99. go:=False;
  100. memo1.visible:=true;
  101. for i:=0 to 89 do
  102. memo1.top:=memo1.top+5;
  103. memo1.top:=60;
  104. end;
  105. end;
  106.  
  107. procedure TForm7.BitBtn1MouseMove(Sender: TObject; Shift: TShiftState; X,
  108.   Y: Integer);
  109. begin
  110. bitbtn1.setfocus;
  111. end;
  112.  
  113. procedure TForm7.BitBtn2MouseMove(Sender: TObject; Shift: TShiftState; X,
  114.   Y: Integer);
  115. begin
  116. Bitbtn2.setfocus;
  117. end;
  118.  
  119. procedure TForm7.BitBtn3MouseMove(Sender: TObject; Shift: TShiftState; X,
  120.   Y: Integer);
  121. begin
  122. Bitbtn3.setfocus;
  123. end;
  124.  
  125. end.
  126.